home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / utils / acroarex.dms / in.adf / Public_Domain / PD_STUFF.lha / RexxIntuition / Scripts / Peek.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-05-30  |  721 b   |  27 lines
  1. /* An example of using the dissidents rx_intui.library */
  2.  
  3. wind=rxi_GetWindow('hello',,,,,,,,)
  4. IF wind == '' | wind == 0 THEN SAY 'Window open error'
  5. err=rxi_SetDraw(wind,1,0,4)
  6.  
  7. /* Get Window's current PenA #, PenB #, and DrawMode. These are BYTEs. You */
  8. /* must first find the window's Rastport. */
  9. rastport=rxi_PEEK(wind,50,2)
  10. penA=rxi_PEEK(rastport,25,0)
  11. penB=rxi_PEEK(rastport,26,0)
  12. drawmode=rxi_PEEK(rastport,28,0)
  13.  
  14. /* Print these values */
  15. err=rxi_Text('penA = 'penA,wind,5,20)
  16. err=rxi_Text('penB = 'penB,wind,5,28)
  17. err=rxi_Text('drawmode = 'drawmode,wind,5,36)
  18.  
  19. class = 1
  20. DO WHILE class > 0
  21. spec=rxi_WaitMsg(wind)
  22. PARSE var spec class part1 part2 part3
  23. IF class == 3 THEN class = 0
  24. END
  25.  
  26. wind=rxi_EndWindow(wind)
  27.